home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / Dev / Triton / Developer / DICE / OpenTriton.c < prev    next >
C/C++ Source or Header  |  1995-06-28  |  2KB  |  87 lines
  1. /*
  2.  *  Triton - The object oriented GUI creation system for the Amiga
  3.  *  Written by Stefan Zeiger in 1993-1994
  4.  *
  5.  *  (c) 1993-1994 by Stefan Zeiger
  6.  *  You are hereby allowed to use this source or parts
  7.  *  of it for creating programs for AmigaOS which use the
  8.  *  Triton GUI creation system. All other rights reserved.
  9.  *
  10.  */
  11.  
  12.  
  13. #include "triton_lib.h"
  14.  
  15.  
  16. struct Library *TritonBase;
  17. struct TR_App *__Triton_Support_App;
  18.  
  19.  
  20. /****** triton.lib/TR_OpenTriton ******
  21. *
  22. *   NAME        
  23. *       TR_OpenTriton -- Opens Triton ready to use.
  24. *
  25. *   SYNOPSIS
  26. *       success = TR_OpenTriton(version, tag1,...)
  27. *       D0
  28. *
  29. *       BOOL TR_OpenTriton(ULONG, ULONG,...);
  30. *
  31. *   FUNCTION
  32. *       Opens triton.library with the specified minimum
  33. *       version and creates an application.
  34. *       The supplied tags are passed as a taglist to
  35. *       TR_CreateApp().
  36. *
  37. *   RESULT
  38. *       success - Was everything opened successful?
  39. *
  40. *   SEE ALSO
  41. *       TR_CloseTriton(), TR_CreateApp()
  42. *
  43. ******/
  44.  
  45. BOOL STACK TR_OpenTriton(ULONG version, ULONG taglist,...)
  46. {
  47.   if(!(TritonBase=OpenLibrary(TRITONNAME,version)))
  48.     return FALSE;
  49.   if(!(__Triton_Support_App=TR_CreateApp((struct TagItem *)&taglist)))
  50.     return FALSE;
  51.   return TRUE;
  52. }
  53.  
  54.  
  55. /****** triton.lib/TR_CloseTriton ******
  56. *
  57. *   NAME        
  58. *       TR_CloseTriton -- Closes Triton easily.
  59. *
  60. *   SYNOPSIS
  61. *       TR_CloseTriton()
  62. *
  63. *       VOID TR_CloseTriton(VOID);
  64. *
  65. *   FUNCTION
  66. *       Closes the application created by OpenTriton()
  67. *       and closes triton.library.
  68. *
  69. *   SEE ALSO
  70. *       TR_OpenTriton()
  71. *
  72. ******/
  73.  
  74. VOID REGS TR_CloseTriton(VOID)
  75. {
  76.   if(__Triton_Support_App)
  77.   {
  78.     TR_DeleteApp(__Triton_Support_App);
  79.     __Triton_Support_App=NULL;
  80.   }
  81.   if(TritonBase)
  82.   {
  83.     CloseLibrary(TritonBase);
  84.     TritonBase=NULL;
  85.   }
  86. }
  87.